unit uProject;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Input1, DB, ADODB, ImgList, ComCtrls, ToolWin, Buttons, ExtCtrls,
  StdCtrls, Mask, DBCtrls, KDBEdit,KLookUp;

type
  TfrmProject = class(TfrmInput1)
    KDBEdit1: TKDBEdit;
    KDBEdit2: TKDBEdit;
    qMasterProjectID: TWideStringField;
    qMasterProjectName: TWideStringField;
    qMasterProvID: TWideStringField;
    procedure qMasterBeforePost(DataSet: TDataSet);
    procedure qMasterNewRecord(DataSet: TDataSet);
  private
    protected
    function GetParamValue: String; override;
    function ListRefreshData: TCustomKLookUp; override;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProject: TfrmProject;

implementation
uses
  uDataModule, Utils;

{$R *.dfm}

function TfrmProject.GetParamValue: String;
begin
     Result := DataModule1.qLocaProjectID.AsString;
end;

function TfrmProject.ListRefreshData: TCustomKLookUp;
begin
     Result := DataModule1.ListLoca;
end;

procedure TfrmProject.qMasterBeforePost(DataSet: TDataSet);
begin
  inherited;
    qMasterProvID.AsString := ValProince;
end;

procedure TfrmProject.qMasterNewRecord(DataSet: TDataSet);
begin
  inherited;
    qMasterProjectID.AsString := ValProince;
end;

end.
